home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / Programming / MPW Interfaces & Libraries 3.1 / AIncludes / PickerEqu.a < prev    next >
Encoding:
Text File  |  1989-10-13  |  2.0 KB  |  112 lines  |  [TEXT/MPS ]
  1. ; Version: 1.02
  2. ; Created: Tuesday, August 2, 1988 at 9:38:46 PM
  3. ;
  4. ; File: PickerEqu.a
  5. ;
  6. ; Assembler Interface to the Macintosh Libraries
  7. ; Copyright Apple Computer, Inc. 1987-1988
  8. ; All Rights Reserved
  9. ;
  10. ;--------------------------------------------------------------------
  11.  
  12.  
  13. MaxSmallFract    EQU         $0000FFFF                ; Maximum small fract value, as LONGINT
  14.  
  15. ; For developmental simplicity in switching between the HLS and HSV
  16. ; models, HLS is reordered into HSL. Thus both models start with
  17. ; hue and saturation values; value/lightness/brightness is last.
  18.  
  19. HSVColor        RECORD        0
  20. hue             DS.W        1                        ; Fraction of circle, red at 0
  21. saturation        DS.W        1                        ; 0-1, 0 for gray, 1 for pure color
  22. value            DS.W        1                        ; 0-1, 0 for black, 1 for max intensity
  23.                 ENDR
  24.  
  25. HSLColor        RECORD        0
  26. hue             DS.W        1                        ; Fraction of circle, red at 0
  27. saturation        DS.W        1                        ; 0-1, 0 for gray, 1 for pure color
  28. lightness        DS.W        1                        ; 0-1, 0 for black, 1 for white
  29.                 ENDR
  30.  
  31.  
  32.  
  33.  
  34.  
  35. CMYColor        RECORD        0
  36. cyan            DS.W        1
  37. magenta         DS.W        1
  38. yellow            DS.W        1
  39.                 ENDR
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46. ; Selectors for color picker macros:
  47.  
  48. fix2SmallFract    EQU         1
  49. smallFract2Fix    EQU         2
  50. cmy2RGB         EQU         3
  51. rgb2CMY         EQU         4
  52. hsl2RGB         EQU         5
  53. rgb2HSL         EQU         6
  54. hsv2RGB         EQU         7
  55. rgb2HSV         EQU         8
  56. getColor        EQU         9
  57.  
  58.  
  59.                 MACRO
  60.                 _Fix2SmallFract
  61.                 MOVE.W        #fix2SmallFract,-(SP)
  62.                 DC.W        $A82E                    ; _Pack12
  63.                 ENDM
  64.  
  65.                 MACRO
  66.                 _SmallFract2Fix
  67.                 MOVE.W        #smallFract2Fix,-(SP)
  68.                 DC.W        $A82E                    ; _Pack12
  69.                 ENDM
  70.  
  71.                 MACRO
  72.                 _CMY2RGB
  73.                 MOVE.W        #cmy2RGB,-(SP)
  74.                 DC.W        $A82E                    ; _Pack12
  75.                 ENDM
  76.  
  77.                 MACRO
  78.                 _RGB2CMY
  79.                 MOVE.W        #rgb2CMY,-(SP)
  80.                 DC.W        $A82E                    ; _Pack12
  81.                 ENDM
  82.  
  83.                 MACRO
  84.                 _HSL2RGB
  85.                 MOVE.W        #hsl2RGB,-(SP)
  86.                 DC.W        $A82E                    ; _Pack12
  87.                 ENDM
  88.  
  89.                 MACRO
  90.                 _RGB2HSL
  91.                 MOVE.W        #rgb2HSL,-(SP)
  92.                 DC.W        $A82E                    ; _Pack12
  93.                 ENDM
  94.  
  95.                 MACRO
  96.                 _HSV2RGB
  97.                 MOVE.W        #hsv2RGB,-(SP)
  98.                 DC.W        $A82E                    ; _Pack12
  99.                 ENDM
  100.  
  101.                 MACRO
  102.                 _RGB2HSV
  103.                 MOVE.W        #rgb2HSV,-(SP)
  104.                 DC.W        $A82E                    ; _Pack12
  105.                 ENDM
  106.  
  107.                 MACRO
  108.                 _GetColor
  109.                 MOVE.W        #getColor,-(SP)
  110.                 DC.W        $A82E                    ; _Pack12
  111.                 ENDM
  112.